BBS in a Box 11

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Tele / M / Microphone Quotes.sit / Microphone Quotes / Ask Date next >
MacBinary | 1991-04-19 | 3.6 KB | [TEXT/ttxt]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Fri Apr 19 14:22:28 1991, modified Fri Apr 19 14:22:28 1991, creator SimpleText, type ASCII, 3194 bytes "Ask Date" , at 0xcfa 322 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ttxt]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 41 73 6b 20 44 61 | 74 65 00 00 00 00 00 00 |..Ask Da|te......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 74 74 78 | 74 00 00 00 00 00 00 00 |.TEXTttx|t.......|
|00000050| 00 00 00 00 00 0c 7a 00 | 00 01 42 a4 34 e5 e4 a4 |......z.|..B.4...|
|00000060| 34 e5 e4 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |4.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dc e7 00 00 |........|........|
|00000080| 20 53 65 74 74 69 6e 67 | 73 20 46 69 6c 65 20 3d | Setting|s File =|
|00000090| 20 47 45 6e 69 65 0d 20 | 53 63 72 69 70 74 20 4e | GEnie. |Script N|
|000000a0| 61 6d 65 20 3d 20 41 73 | 6b 20 44 61 74 65 0d 20 |ame = As|k Date. |
|000000b0| 43 6f 6d 6d 61 6e 64 20 | 4b 65 79 20 3d 20 0d 20 |Command |Key = . |
|000000c0| 46 2d 4b 65 79 20 3d 20 | 0d 20 4d 65 6e 75 20 3d |F-Key = |. Menu =|
|000000d0| 20 4e 4f 0d 20 42 75 74 | 74 6f 6e 20 3d 20 4e 4f | NO. But|ton = NO|
|000000e0| 0d 20 56 65 72 73 69 6f | 6e 20 3d 20 33 30 30 37 |. Versio|n = 3007|
|000000f0| 0d 20 53 79 73 74 65 6d | 20 3d 20 4d 61 63 69 6e |. System| = Macin|
|00000100| 74 6f 73 68 0d 0d 31 20 | 20 20 52 65 6d 61 72 6b |tosh..1 |  Remark|
|00000110| 20 22 4d 69 63 72 6f 70 | 68 6f 6e 65 20 49 49 20 | "Microp|hone II |
|00000120| 53 63 72 69 70 74 20 74 | 6f 20 61 73 6b 20 75 73 |Script t|o ask us|
|00000130| 65 72 20 66 6f 72 20 64 | 61 74 65 20 61 6e 64 20 |er for d|ate and |
|00000140| 63 68 65 63 6b 20 66 6f | 72 6d 61 74 20 69 73 20 |check fo|rmat is |
|00000150| 79 79 6d 6d 64 64 22 0d | 32 20 20 20 52 65 6d 61 |yymmdd".|2   Rema|
|00000160| 72 6b 20 22 57 72 69 74 | 74 65 6e 20 62 79 20 4d |rk "Writ|ten by M|
|00000170| 65 6c 76 79 6e 20 44 2e | 20 4d 61 67 72 65 65 2c |elvyn D.| Magree,|
|00000180| 20 28 4d 29 61 67 72 65 | 65 61 62 6c 65 20 73 6f | (M)agre|eable so|
|00000190| 66 74 77 61 72 65 2c 20 | 69 6e 63 2e 22 0d 33 20 |ftware, |inc.".3 |
|000001a0| 20 20 52 65 6d 61 72 6b | 20 22 22 0d 34 20 20 20 |  Remark| "".4   |
|000001b0| 52 65 6d 61 72 6b 20 22 | 4f 6e 20 65 6e 74 72 61 |Remark "|On entra|
|000001c0| 6e 63 65 2c 20 53 74 61 | 72 74 45 6e 64 20 73 68 |nce, Sta|rtEnd sh|
|000001d0| 6f 75 6c 64 20 62 65 20 | 27 53 74 61 72 74 27 20 |ould be |'Start' |
|000001e0| 6f 72 20 27 45 6e 64 27 | 20 66 6f 72 20 74 79 70 |or 'End'| for typ|
|000001f0| 65 20 6f 66 20 64 61 74 | 65 22 0d 35 20 20 20 52 |e of dat|e".5   R|
|00000200| 65 6d 61 72 6b 20 22 52 | 65 74 75 72 6e 73 20 64 |emark "R|eturns d|
|00000210| 61 74 65 20 65 6e 74 65 | 72 65 64 20 61 73 20 47 |ate ente|red as G|
|00000220| 69 76 65 6e 44 61 74 65 | 22 0d 36 20 20 20 52 65 |ivenDate|".6   Re|
|00000230| 6d 61 72 6b 20 22 47 69 | 76 65 6e 44 61 74 65 20 |mark "Gi|venDate |
|00000240| 69 73 20 6e 75 6c 6c 20 | 73 74 72 69 6e 67 20 69 |is null |string i|
|00000250| 66 20 75 73 65 72 20 67 | 69 76 65 73 20 75 70 20 |f user g|ives up |
|00000260| 6f 6e 20 65 6e 74 65 72 | 69 6e 67 20 63 6f 72 72 |on enter|ing corr|
|00000270| 65 63 74 20 64 61 74 65 | 20 66 6f 72 6d 61 74 22 |ect date| format"|
|00000280| 0d 37 20 20 20 52 65 6d | 61 72 6b 20 22 22 0d 38 |.7   Rem|ark "".8|
|00000290| 20 20 20 52 65 6d 61 72 | 6b 20 22 4c 61 74 65 73 |   Remar|k "Lates|
|000002a0| 74 20 75 70 64 61 74 65 | 20 6f 66 20 74 68 69 73 |t update| of this|
|000002b0| 20 73 63 72 69 70 74 20 | 2d 20 39 31 2d 30 34 2d | script |- 91-04-|
|000002c0| 31 38 22 0d 39 20 20 20 | 52 65 6d 61 72 6b 20 22 |18".9   |Remark "|
|000002d0| 22 0d 31 30 20 20 53 65 | 74 20 56 61 72 69 61 62 |".10  Se|t Variab|
|000002e0| 6c 65 20 2a 20 47 69 76 | 65 6e 44 61 74 65 20 66 |le * Giv|enDate f|
|000002f0| 72 6f 6d 20 45 78 70 72 | 65 73 73 69 6f 6e 20 22 |rom Expr|ession "|
|00000300| 27 2a 27 22 0d 31 31 20 | 20 53 65 74 20 56 61 72 |'*'".11 | Set Var|
|00000310| 69 61 62 6c 65 20 2a 20 | 43 75 72 72 65 6e 74 44 |iable * |CurrentD|
|00000320| 61 74 65 20 66 72 6f 6d | 20 45 78 70 72 65 73 73 |ate from| Express|
|00000330| 69 6f 6e 20 22 4d 69 64 | 28 53 74 72 69 6e 67 28 |ion "Mid|(String(|
|00000340| 59 65 61 72 29 2c 33 2c | 32 29 26 4d 69 64 28 53 |Year),3,|2)&Mid(S|
|00000350| 74 72 69 6e 67 28 4d 6f | 6e 74 68 2b 31 30 30 29 |tring(Mo|nth+100)|
|00000360| 2c 32 2c 32 29 26 4d 69 | 64 28 53 74 72 69 6e 67 |,2,2)&Mi|d(String|
|00000370| 28 44 61 79 2b 31 30 30 | 29 2c 32 2c 32 29 22 0d |(Day+100|),2,2)".|
|00000380| 31 32 20 20 52 65 70 65 | 61 74 0d 31 33 20 20 20 |12  Repe|at.13   |
|00000390| 53 65 74 20 56 61 72 69 | 61 62 6c 65 20 2a 20 41 |Set Vari|able * A|
|000003a0| 73 6b 44 61 74 65 20 66 | 72 6f 6d 20 44 69 61 6c |skDate f|rom Dial|
|000003b0| 6f 67 20 42 6f 78 20 22 | 27 45 6e 74 65 72 20 27 |og Box "|'Enter '|
|000003c0| 26 53 74 61 72 74 45 6e | 64 26 27 20 44 61 74 65 |&StartEn|d&' Date|
|000003d0| 20 69 6e 20 66 6f 72 6d | 20 59 59 4d 4d 44 44 27 | in form| YYMMDD'|
|000003e0| 22 0d 31 34 20 20 20 49 | 66 20 45 78 70 72 65 73 |".14   I|f Expres|
|000003f0| 73 69 6f 6e 20 22 41 73 | 6b 44 61 74 65 3d 27 27 |sion "As|kDate=''|
|00000400| 22 0d 31 35 20 20 20 20 | 53 65 74 20 56 61 72 69 |".15    |Set Vari|
|00000410| 61 62 6c 65 20 2a 20 47 | 69 76 65 6e 44 61 74 65 |able * G|ivenDate|
|00000420| 20 66 72 6f 6d 20 45 78 | 70 72 65 73 73 69 6f 6e | from Ex|pression|
|00000430| 20 22 41 73 6b 44 61 74 | 65 22 0d 31 36 20 20 20 | "AskDat|e".16   |
|00000440| 20 4c 65 61 76 65 0d 31 | 37 20 20 20 45 6c 73 65 | Leave.1|7   Else|
|00000450| 20 49 66 20 45 78 70 72 | 65 73 73 69 6f 6e 20 22 | If Expr|ession "|
|00000460| 4c 65 6e 67 74 68 28 41 | 73 6b 44 61 74 65 29 3d |Length(A|skDate)=|
|00000470| 36 22 0d 31 38 20 20 20 | 20 49 66 20 45 78 70 72 |6".18   | If Expr|
|00000480| 65 73 73 69 6f 6e 20 22 | 41 73 6b 44 61 74 65 3e |ession "|AskDate>|
|00000490| 43 75 72 72 65 6e 74 44 | 61 74 65 22 0d 31 39 20 |CurrentD|ate".19 |
|000004a0| 20 20 20 20 41 6c 65 72 | 74 20 2a 20 4f 4b 2f 41 |    Aler|t * OK/A|
|000004b0| 62 6f 72 74 20 22 27 44 | 61 74 65 20 6d 75 73 74 |bort "'D|ate must|
|000004c0| 20 62 65 20 6c 65 73 73 | 20 74 68 61 6e 20 6f 72 | be less| than or|
|000004d0| 20 65 71 75 61 6c 20 74 | 6f 64 61 79 20 2d 20 27 | equal t|oday - '|
|000004e0| 26 43 75 72 72 65 6e 74 | 44 61 74 65 22 0d 32 30 |&Current|Date".20|
|000004f0| 20 20 20 20 20 49 66 20 | 53 75 63 63 65 73 73 0d |     If |Success.|
|00000500| 32 31 20 20 20 20 20 20 | 43 79 63 6c 65 0d 32 32 |21      |Cycle.22|
|00000510| 20 20 20 20 20 45 6c 73 | 65 0d 32 33 20 20 20 20 |     Els|e.23    |
|00000520| 20 20 41 62 6f 72 74 20 | 53 63 72 69 70 74 0d 32 |  Abort |Script.2|
|00000530| 34 20 20 20 20 20 45 6e | 64 20 49 66 0d 32 35 20 |4     En|d If.25 |
|00000540| 20 20 20 45 6e 64 20 49 | 66 0d 32 36 20 20 20 20 |   End I|f.26    |
|00000550| 53 65 74 20 56 61 72 69 | 61 62 6c 65 20 2a 20 53 |Set Vari|able * S|
|00000560| 74 61 72 74 59 65 61 72 | 20 66 72 6f 6d 20 45 78 |tartYear| from Ex|
|00000570| 70 72 65 73 73 69 6f 6e | 20 22 4e 75 6d 62 65 72 |pression| "Number|
|00000580| 28 4d 69 64 28 41 73 6b | 44 61 74 65 2c 31 2c 32 |(Mid(Ask|Date,1,2|
|00000590| 29 29 22 0d 32 37 20 20 | 20 20 53 65 74 20 56 61 |))".27  |  Set Va|
|000005a0| 72 69 61 62 6c 65 20 2a | 20 53 74 61 72 74 4d 6f |riable *| StartMo|
|000005b0| 6e 74 68 20 66 72 6f 6d | 20 45 78 70 72 65 73 73 |nth from| Express|
|000005c0| 69 6f 6e 20 22 4e 75 6d | 62 65 72 28 4d 69 64 28 |ion "Num|ber(Mid(|
|000005d0| 41 73 6b 44 61 74 65 2c | 33 2c 32 29 29 22 0d 32 |AskDate,|3,2))".2|
|000005e0| 38 20 20 20 20 53 65 74 | 20 56 61 72 69 61 62 6c |8    Set| Variabl|
|000005f0| 65 20 2a 20 53 74 61 72 | 74 44 61 79 20 66 72 6f |e * Star|tDay fro|
|00000600| 6d 20 45 78 70 72 65 73 | 73 69 6f 6e 20 22 4e 75 |m Expres|sion "Nu|
|00000610| 6d 62 65 72 28 4d 69 64 | 28 41 73 6b 44 61 74 65 |mber(Mid|(AskDate|
|00000620| 2c 35 2c 32 29 29 22 0d | 32 39 20 20 20 20 53 65 |,5,2))".|29    Se|
|00000630| 74 20 56 61 72 69 61 62 | 6c 65 20 2a 20 44 61 79 |t Variab|le * Day|
|00000640| 52 61 6e 67 65 20 66 72 | 6f 6d 20 45 78 70 72 65 |Range fr|om Expre|
|00000650| 73 73 69 6f 6e 20 22 30 | 22 0d 33 30 20 20 20 20 |ssion "0|".30    |
|00000660| 49 66 20 45 78 70 72 65 | 73 73 69 6f 6e 20 22 28 |If Expre|ssion "(|
|00000670| 28 31 39 30 30 2b 53 74 | 61 72 74 59 65 61 72 29 |(1900+St|artYear)|
|00000680| 3c 28 59 65 61 72 2d 31 | 29 29 20 6f 72 20 28 28 |<(Year-1|)) or ((|
|00000690| 31 39 30 30 2b 53 74 61 | 72 74 59 65 61 72 29 3e |1900+Sta|rtYear)>|
|000006a0| 59 65 61 72 29 22 0d 33 | 31 20 20 20 20 20 41 6c |Year)".3|1     Al|
|000006b0| 65 72 74 20 2a 20 4f 4b | 2f 41 62 6f 72 74 20 22 |ert * OK|/Abort "|
|000006c0| 27 59 65 61 72 20 6d 75 | 73 74 20 62 65 20 27 26 |'Year mu|st be '&|
|000006d0| 73 74 72 69 6e 67 28 59 | 65 61 72 2d 31 39 30 31 |string(Y|ear-1901|
|000006e0| 29 26 27 20 6f 72 20 27 | 26 73 74 72 69 6e 67 28 |)&' or '|&string(|
|000006f0| 59 65 61 72 2d 31 39 30 | 30 29 22 0d 33 32 20 20 |Year-190|0)".32  |
|00000700| 20 20 20 49 66 20 46 61 | 69 6c 75 72 65 0d 33 33 |   If Fa|ilure.33|
|00000710| 20 20 20 20 20 20 41 62 | 6f 72 74 20 53 63 72 69 |      Ab|ort Scri|
|00000720| 70 74 0d 33 34 20 20 20 | 20 20 45 6e 64 20 49 66 |pt.34   |  End If|
|00000730| 0d 33 35 20 20 20 20 45 | 6c 73 65 20 49 66 20 45 |.35    E|lse If E|
|00000740| 78 70 72 65 73 73 69 6f | 6e 20 22 28 53 74 61 72 |xpressio|n "(Star|
|00000750| 74 4d 6f 6e 74 68 3c 31 | 29 20 6f 72 20 28 53 74 |tMonth<1|) or (St|
|00000760| 61 72 74 4d 6f 6e 74 68 | 3e 31 32 29 22 0d 33 36 |artMonth|>12)".36|
|00000770| 20 20 20 20 20 41 6c 65 | 72 74 20 2a 20 4f 4b 2f |     Ale|rt * OK/|
|00000780| 41 62 6f 72 74 20 22 27 | 4d 6f 6e 74 68 20 6d 75 |Abort "'|Month mu|
|00000790| 73 74 20 62 65 20 31 20 | 74 6f 20 31 32 27 22 0d |st be 1 |to 12'".|
|000007a0| 33 37 20 20 20 20 20 49 | 66 20 46 61 69 6c 75 72 |37     I|f Failur|
|000007b0| 65 0d 33 38 20 20 20 20 | 20 20 41 62 6f 72 74 20 |e.38    |  Abort |
|000007c0| 53 63 72 69 70 74 0d 33 | 39 20 20 20 20 20 45 6e |Script.3|9     En|
|000007d0| 64 20 49 66 0d 34 30 20 | 20 20 20 45 6c 73 65 20 |d If.40 |   Else |
|000007e0| 49 66 20 45 78 70 72 65 | 73 73 69 6f 6e 20 22 28 |If Expre|ssion "(|
|000007f0| 53 74 61 72 74 4d 6f 6e | 74 68 3d 34 29 20 6f 72 |StartMon|th=4) or|
|00000800| 20 28 53 74 61 72 74 4d | 6f 6e 74 68 3d 36 29 20 | (StartM|onth=6) |
|00000810| 6f 72 20 28 53 74 61 72 | 74 4d 6f 6e 74 68 3d 39 |or (Star|tMonth=9|
|00000820| 29 20 6f 72 20 28 53 74 | 61 72 74 4d 6f 6e 74 68 |) or (St|artMonth|
|00000830| 3d 31 31 29 20 22 0d 34 | 31 20 20 20 20 20 49 66 |=11) ".4|1     If|
|00000840| 20 45 78 70 72 65 73 73 | 69 6f 6e 20 22 28 53 74 | Express|ion "(St|
|00000850| 61 72 74 44 61 79 3e 30 | 29 20 61 6e 64 20 28 53 |artDay>0|) and (S|
|00000860| 74 61 72 74 44 61 79 3c | 33 31 29 22 0d 34 32 20 |tartDay<|31)".42 |
|00000870| 20 20 20 20 20 53 65 74 | 20 56 61 72 69 61 62 6c |     Set| Variabl|
|00000880| 65 20 2a 20 47 69 76 65 | 6e 44 61 74 65 20 66 72 |e * Give|nDate fr|
|00000890| 6f 6d 20 45 78 70 72 65 | 73 73 69 6f 6e 20 22 41 |om Expre|ssion "A|
|000008a0| 73 6b 44 61 74 65 22 0d | 34 33 20 20 20 20 20 45 |skDate".|43     E|
|000008b0| 6c 73 65 0d 34 34 20 20 | 20 20 20 20 53 65 74 20 |lse.44  |    Set |
|000008c0| 56 61 72 69 61 62 6c 65 | 20 2a 20 44 61 74 65 52 |Variable| * DateR|
|000008d0| 61 6e 67 65 20 66 72 6f | 6d 20 45 78 70 72 65 73 |ange fro|m Expres|
|000008e0| 73 69 6f 6e 20 22 33 30 | 22 0d 34 35 20 20 20 20 |sion "30|".45    |
|000008f0| 20 45 6e 64 20 49 66 0d | 34 36 20 20 20 20 45 6c | End If.|46    El|
|00000900| 73 65 20 49 66 20 45 78 | 70 72 65 73 73 69 6f 6e |se If Ex|pression|
|00000910| 20 22 53 74 61 72 74 4d | 6f 6e 74 68 3d 32 22 0d | "StartM|onth=2".|
|00000920| 34 37 20 20 20 20 20 49 | 66 20 45 78 70 72 65 73 |47     I|f Expres|
|00000930| 73 69 6f 6e 20 22 28 53 | 74 61 72 74 59 65 61 72 |sion "(S|tartYear|
|00000940| 3d 30 29 20 6f 72 20 28 | 53 74 61 72 74 59 65 61 |=0) or (|StartYea|
|00000950| 72 20 4d 6f 64 20 34 20 | 3c 3e 20 30 29 22 0d 34 |r Mod 4 |<> 0)".4|
|00000960| 38 20 20 20 20 20 20 53 | 65 74 20 56 61 72 69 61 |8      S|et Varia|
|00000970| 62 6c 65 20 2a 20 44 61 | 79 73 49 6e 46 65 62 20 |ble * Da|ysInFeb |
|00000980| 66 72 6f 6d 20 45 78 70 | 72 65 73 73 69 6f 6e 20 |from Exp|ression |
|00000990| 22 32 38 22 0d 34 39 20 | 20 20 20 20 45 6c 73 65 |"28".49 |    Else|
|000009a0| 0d 35 30 20 20 20 20 20 | 20 53 65 74 20 56 61 72 |.50     | Set Var|
|000009b0| 69 61 62 6c 65 20 2a 20 | 44 61 79 73 49 6e 46 65 |iable * |DaysInFe|
|000009c0| 62 20 66 72 6f 6d 20 45 | 78 70 72 65 73 73 69 6f |b from E|xpressio|
|000009d0| 6e 20 22 32 39 22 0d 35 | 31 20 20 20 20 20 45 6e |n "29".5|1     En|
|000009e0| 64 20 49 66 0d 35 32 20 | 20 20 20 20 49 66 20 45 |d If.52 |    If E|
|000009f0| 78 70 72 65 73 73 69 6f | 6e 20 22 28 53 74 61 72 |xpressio|n "(Star|
|00000a00| 74 44 61 79 3e 30 29 20 | 61 6e 64 20 28 53 74 61 |tDay>0) |and (Sta|
|00000a10| 72 74 44 61 79 3c 44 61 | 79 73 49 6e 46 65 62 29 |rtDay<Da|ysInFeb)|
|00000a20| 22 0d 35 33 20 20 20 20 | 20 20 53 65 74 20 56 61 |".53    |  Set Va|
|00000a30| 72 69 61 62 6c 65 20 2a | 20 47 69 76 65 6e 44 61 |riable *| GivenDa|
|00000a40| 74 65 20 66 72 6f 6d 20 | 45 78 70 72 65 73 73 69 |te from |Expressi|
|00000a50| 6f 6e 20 22 41 73 6b 44 | 61 74 65 22 0d 35 34 20 |on "AskD|ate".54 |
|00000a60| 20 20 20 20 45 6c 73 65 | 0d 35 35 20 20 20 20 20 |    Else|.55     |
|00000a70| 20 53 65 74 20 56 61 72 | 69 61 62 6c 65 20 2a 20 | Set Var|iable * |
|00000a80| 44 61 74 65 52 61 6e 67 | 65 20 66 72 6f 6d 20 45 |DateRang|e from E|
|00000a90| 78 70 72 65 73 73 69 6f | 6e 20 22 44 61 79 73 49 |xpressio|n "DaysI|
|00000aa0| 6e 46 65 62 22 0d 35 36 | 20 20 20 20 20 45 6e 64 |nFeb".56|     End|
|00000ab0| 20 49 66 0d 35 37 20 20 | 20 20 45 6c 73 65 0d 35 | If.57  |  Else.5|
|00000ac0| 38 20 20 20 20 20 49 66 | 20 45 78 70 72 65 73 73 |8     If| Express|
|00000ad0| 69 6f 6e 20 22 28 53 74 | 61 72 74 44 61 79 3e 30 |ion "(St|artDay>0|
|00000ae0| 29 20 61 6e 64 20 28 53 | 74 61 72 74 44 61 79 3c |) and (S|tartDay<|
|00000af0| 33 32 29 22 0d 35 39 20 | 20 20 20 20 20 53 65 74 |32)".59 |     Set|
|00000b00| 20 56 61 72 69 61 62 6c | 65 20 2a 20 47 69 76 65 | Variabl|e * Give|
|00000b10| 6e 44 61 74 65 20 66 72 | 6f 6d 20 45 78 70 72 65 |nDate fr|om Expre|
|00000b20| 73 73 69 6f 6e 20 22 41 | 73 6b 44 61 74 65 22 0d |ssion "A|skDate".|
|00000b30| 36 30 20 20 20 20 20 45 | 6c 73 65 0d 36 31 20 20 |60     E|lse.61  |
|00000b40| 20 20 20 20 53 65 74 20 | 56 61 72 69 61 62 6c 65 |    Set |Variable|
|00000b50| 20 2a 20 44 61 79 52 61 | 6e 67 65 20 66 72 6f 6d | * DayRa|nge from|
|00000b60| 20 45 78 70 72 65 73 73 | 69 6f 6e 20 22 33 31 22 | Express|ion "31"|
|00000b70| 0d 36 32 20 20 20 20 20 | 45 6e 64 20 49 66 0d 36 |.62     |End If.6|
|00000b80| 33 20 20 20 20 45 6e 64 | 20 49 66 0d 36 34 20 20 |3    End| If.64  |
|00000b90| 20 20 49 66 20 45 78 70 | 72 65 73 73 69 6f 6e 20 |  If Exp|ression |
|00000ba0| 22 44 61 79 52 61 6e 67 | 65 3e 30 22 0d 36 35 20 |"DayRang|e>0".65 |
|00000bb0| 20 20 20 20 41 6c 65 72 | 74 20 2a 20 4f 4b 2f 41 |    Aler|t * OK/A|
|00000bc0| 62 6f 72 74 20 22 27 44 | 61 79 20 6d 75 73 74 20 |bort "'D|ay must |
|00000bd0| 62 65 20 31 20 74 6f 20 | 27 26 73 74 72 69 6e 67 |be 1 to |'&string|
|00000be0| 28 44 61 79 52 61 6e 67 | 65 29 22 0d 36 36 20 20 |(DayRang|e)".66  |
|00000bf0| 20 20 20 49 66 20 46 61 | 69 6c 75 72 65 0d 36 37 |   If Fa|ilure.67|
|00000c00| 20 20 20 20 20 20 41 62 | 6f 72 74 20 53 63 72 69 |      Ab|ort Scri|
|00000c10| 70 74 0d 36 38 20 20 20 | 20 20 45 6e 64 20 49 66 |pt.68   |  End If|
|00000c20| 0d 36 39 20 20 20 20 45 | 6e 64 20 49 66 0d 37 30 |.69    E|nd If.70|
|00000c30| 20 20 20 45 6c 73 65 0d | 37 31 20 20 20 20 41 6c |   Else.|71    Al|
|00000c40| 65 72 74 20 2a 20 4f 4b | 2f 41 62 6f 72 74 20 22 |ert * OK|/Abort "|
|00000c50| 27 45 6e 74 65 72 20 64 | 61 74 65 20 69 6e 20 66 |'Enter d|ate in f|
|00000c60| 6f 72 6d 20 79 79 6d 6d | 64 64 2e 20 20 46 6f 72 |orm yymm|dd.  For|
|00000c70| 20 65 78 61 6d 70 6c 65 | 2c 20 39 31 30 33 32 32 | example|, 910322|
|00000c80| 20 66 6f 72 20 32 32 20 | 4d 61 72 63 68 20 31 39 | for 22 |March 19|
|00000c90| 39 31 2e 27 22 0d 37 32 | 20 20 20 20 49 66 20 46 |91.'".72|    If F|
|00000ca0| 61 69 6c 75 72 65 0d 37 | 33 20 20 20 20 20 41 62 |ailure.7|3     Ab|
|00000cb0| 6f 72 74 20 53 63 72 69 | 70 74 0d 37 34 20 20 20 |ort Scri|pt.74   |
|00000cc0| 20 45 6e 64 20 49 66 0d | 37 35 20 20 20 45 6e 64 | End If.|75   End|
|00000cd0| 20 49 66 0d 37 36 20 20 | 55 6e 74 69 6c 20 45 78 | If.76  |Until Ex|
|00000ce0| 70 72 65 73 73 69 6f 6e | 20 22 47 69 76 65 6e 44 |pression| "GivenD|
|00000cf0| 61 74 65 3c 3e 27 2a 27 | 22 0d 00 00 00 00 00 00 |ate<>'*'|".......|
|00000d00| 00 00 01 00 00 00 01 10 | 00 00 00 10 00 00 00 32 |........|.......2|
|00000d10| 78 70 72 65 73 73 69 6f | 6e 20 22 44 61 79 73 49 |xpressio|n "DaysI|
|00000d20| 6e 46 65 62 22 0d 35 36 | 20 20 20 20 20 45 6e 64 |nFeb".56|     End|
|00000d30| 08 41 73 6b 20 44 61 74 | 65 00 02 00 00 00 50 61 |.Ask Dat|e.....Pa|
|00000d40| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|00000d50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 a9 8d 4b cd 00 00 | 00 00 00 00 01 42 65 74 |....K...|.....Bet|
|00000d80| 20 56 61 72 69 61 62 6c | 65 20 2a 20 47 69 76 65 | Variabl|e * Give|
|00000d90| 6e 44 61 74 65 20 66 72 | 6f 6d 20 45 78 70 72 65 |nDate fr|om Expre|
|00000da0| 73 73 69 6f 6e 20 22 41 | 73 6b 44 61 74 65 22 0d |ssion "A|skDate".|
|00000db0| 36 30 20 20 20 20 20 45 | 6c 73 65 0d 36 31 20 20 |60     E|lse.61  |
|00000dc0| 20 20 20 20 53 65 74 20 | 56 61 72 69 61 62 6c 65 |    Set |Variable|
|00000dd0| 20 2a 20 44 61 79 52 61 | 6e 67 65 20 66 72 6f 6d | * DayRa|nge from|
|00000de0| 20 45 78 70 72 65 73 73 | 69 6f 6e 20 22 33 31 22 | Express|ion "31"|
|00000df0| 0d 36 32 20 20 20 20 20 | 45 6e 64 20 49 66 0d 36 |.62     |End If.6|
|00000e00| 00 00 00 0c 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 01 00 00 00 01 10 | 00 00 00 10 00 00 00 32 |........|.......2|
|00000e20| 00 04 cc 6a 02 f2 00 00 | 00 1c 00 32 00 00 69 63 |...j....|...2..ic|
|00000e30| 6e 69 00 00 00 0a 00 00 | ff ff 00 00 00 00 00 04 |ni......|........|
|00000e40| b0 a2 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+